      LOGICAL CNMPRP, DODIPS, EXCIT
      COMMON /PVIBAV/ NEXCTB(8), NTOTEX,  CNMPRP, DODIPS, EXCIT
